#Region "Imports directives"
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Net
Imports DevExpress.CodeRush
Imports DevExpress.CodeRush.Core
Imports DevExpress.CodeRush.StructuralParser
Imports ActiproSoftware.SyntaxEditor
Imports ActiproSoftware.SyntaxEditor.KeyPressTrigger
#End Region

Namespace VBCodeCommenter

    ''' <summary>
    ''' Type Class Update comments
    ''' <para>Class Name: UpdateComments</para>
    ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
    ''' <para>Project Name: VBCode_Commenter</para>
    ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
    ''' <para>Namespace Name: VBCodeCommenter</para>
    ''' </summary>
    ''' <remarks>
    ''' 	<para><b>History:</b></para>
    ''' <list type="table">
    ''' 	<listheader>
    ''' 		<devName>Developer\Date\Time</devName>
    ''' 		<devCompany>Developer Company</devCompany>
    ''' 		<devPhone>Developer Phone</devPhone>
    ''' 		<devEmail>Developer Email</devEmail>
    ''' 		<devMachine>Developer On</devMachine>
    ''' 		<description>Description</description>
    ''' 	</listheader>
    ''' 	<item>
    ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:39:42 AM</para></devName>
    ''' 		<devCompany>EDS</devCompany>
    ''' 		<devPhone>(919) 424-9259</devPhone>
    ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
    ''' 		<devMachine>W2PZZ50H01</devMachine>
    ''' 		<description>Created XML Comment.</description>
    ''' 	</item>
    ''' </list>
    ''' </remarks>
    ''' <example>
    ''' </example>
    Public Class UpdateComments

#Region "Variables"
        ''' <summary>
        ''' Type Initialized Variable [CurrentPath] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:39:47 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private CurrentPath As String = String.Empty

        ''' <summary>
        ''' Type Initialized Variable [IntelSenseTrigger] New Actipro software. syntax editor. key press trigger ( my. settings. editor trigger key, Tru = My.Settings.EditorTriggerKey)
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:39:54 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public IntelSenseTrigger As New ActiproSoftware.SyntaxEditor.KeyPressTrigger(My.Settings.EditorTriggerKey, True, My.Settings.EditorTriggerKey)

        ''' <summary>
        ''' Type Variable [MemberListSelectedItem] Actipro software. syntax editor. intelli prompt member list item
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:39:58 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private MemberListSelectedItem As ActiproSoftware.SyntaxEditor.IntelliPromptMemberListItem

        ''' <summary>
        ''' Type Initialized Variable [CurrentSelectedItem] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:40:03 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private CurrentSelectedItem As String = String.Empty

        ''' <summary>
        ''' Type Initialized Variable [CurrentSelectedText] As <seealso cref= "System.String"/> = String.Empty
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:40:10 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private CurrentSelectedText As String = String.Empty
#End Region

#Region "Methods"
        ''' <summary>
        ''' Type Sub Btn cancel   click
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:40:35 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
            If sender Is Nothing OrElse e Is Nothing Then
                Return
            End If
            Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
            Me.Close()

        End Sub

        ''' <summary>
        ''' Type Sub Btn apply   click
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e As <seealso cref= "System.EventArgs"/></param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:40:42 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApply.Click
            If sender Is Nothing OrElse e Is Nothing Then
                Return
            End If
            Me.DialogResult = System.Windows.Forms.DialogResult.OK

        End Sub

        ''' <summary>
        ''' Type Sub New
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:40:47 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Public Sub New()

            ' This call is required by the Windows Form Designer.
            InitializeComponent()

            ' Add any initialization after the InitializeComponent() call.
            CurrentPath = CommenterPlugIn.AppPath
            If CurrentPath.ToUpper.StartsWith(My.Settings.PathParse) Then
                CurrentPath = CurrentPath.Substring(6, CurrentPath.Length - 6)
            End If
            CNetHelpProvider.HelpNamespace = CurrentPath & My.Resources.BackSlashText & My.Settings.ApplicationHelpFile
            Try
                Me.UpdateCommentEditor.Document.LoadLanguageFromXml(CurrentPath & My.Resources.BackSlashText & My.Settings.KeyPressTriggersFileName, 0)
            Catch ex As Exception

            Finally

            End Try
            Me.UpdateCommentEditor.SelectedView.Selection.SelectRange(Me.UpdateCommentEditor.SelectedView.Selection.FirstOffset, 0)
            Me.lblEditorTrigger.Text = My.Settings.HintTextEditorTiggerKey & My.Resources.LineBlankSpaceText & Chr(34) & My.Settings.EditorTriggerKey & Chr(34)

        End Sub

        ''' <summary>
        ''' Type Sub Build trigger list
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="Editor">Parameter Editor Actipro software. syntax editor. syntax editor</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:40:53 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub BuildTriggerList(ByVal Editor As ActiproSoftware.SyntaxEditor.SyntaxEditor)
            Try
                Dim memberList As IntelliPromptMemberList = Editor.IntelliPrompt.MemberList
                memberList.ResetAllowedCharacters()
                Dim reflectionImageList As New ImageList
                reflectionImageList = SyntaxEditor.ReflectionImageList
                ' Set IntelliPrompt ImageList
                memberList.ImageList = reflectionImageList

                ' Add items to the list
                Dim imageIndex As Integer = ActiproSoftware.Products.SyntaxEditor.IconResource.Keyword
                memberList.Clear()
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.BoldTextTag, imageIndex, My.Settings.BoldTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.BlockQuoteTag, imageIndex, My.Settings.BlockQuoteTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.SingleLineCodeTag, imageIndex, My.Settings.SingleLineCodeTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.MultiLineCodeTag, imageIndex, My.Settings.MultiLineCodeTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.DeletedTextTag, imageIndex, My.Settings.DeletedTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.InsertedTextTag, imageIndex, My.Settings.InsertedTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.ItalicTextTag, imageIndex, My.Settings.ItalicTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.NumberListStartTag & Chr(10) & My.Settings.ListHeaderStartTag & Chr(10) & My.Settings.ListDescStartTag & My.Settings.ListDescEndTag & Chr(10) & My.Settings.ListHeaderEndTag & Chr(10) & My.Settings.ListItemStartTag & Chr(10) & My.Settings.ListDescStartTag & My.Settings.ListDescEndTag & Chr(10) & My.Settings.ListItemEndTag & Chr(10) & My.Settings.ListItemEndTag, imageIndex, My.Settings.NumberListTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.TableListStartTag & Chr(10) & My.Settings.ListHeaderStartTag & Chr(10) & My.Settings.ListTermStartTag & My.Settings.ListTermEndTag & Chr(10) & My.Settings.ListDescStartTag & My.Settings.ListDescEndTag & Chr(10) & My.Settings.ListHeaderEndTag & Chr(10) & My.Settings.ListItemStartTag & Chr(10) & My.Settings.ListTermStartTag & My.Settings.ListTermEndTag & Chr(10) & My.Settings.ListDescStartTag & My.Settings.ListDescEndTag & Chr(10) & My.Settings.ListItemEndTag & Chr(10) & My.Settings.ListItemEndTag, imageIndex, My.Settings.TableListTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.OrderedListTag, imageIndex, My.Settings.OrderedListTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.ParagraphCodeTag, imageIndex, My.Settings.ParagraphCodeTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.SeeAlsoTag, imageIndex, My.Settings.SeeAlsoTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.StrikeTextTag, imageIndex, My.Settings.StrikeTextTagDesc))
                memberList.Add(New IntelliPromptMemberListItem(My.Settings.UnderlineTextTag, imageIndex, My.Settings.UnderlineTextTagDesc))
                ' Show the list
                If (memberList.Count > 0) Then
                    memberList.Show()
                    MemberListSelectedItem = memberList.SelectedItem
                End If
                reflectionImageList = Nothing
                memberList = Nothing
            Catch ex As Exception

            Finally

            End Try

        End Sub

        ''' <summary>
        ''' Type Sub Insert clipboard contents
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="Editor">Parameter Editor Actipro software. syntax editor. syntax editor</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:41:04 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub InsertClipboardContents(ByVal Editor As ActiproSoftware.SyntaxEditor.SyntaxEditor)
            Dim SelectionOffset As Integer = 0
            MemberListSelectedItem = Editor.IntelliPrompt.MemberList.SelectedItem
            CurrentSelectedItem = MemberListSelectedItem.ToString
            Select Case CurrentSelectedItem
                Case My.Settings.BoldTextTag
                    SelectionOffset = My.Settings.BoldTextEndTag.Length
                Case My.Settings.BlockQuoteTag
                    SelectionOffset = My.Settings.BlockQuoteEndTag.Length
                Case My.Settings.DeletedTextTag
                    SelectionOffset = My.Settings.DeletedTextEndTag.Length
                Case My.Settings.InsertedTextTag
                    SelectionOffset = My.Settings.InsertedTextEndTag.Length
                Case My.Settings.ItalicTextTag
                    SelectionOffset = My.Settings.ItalicTextEndTag.Length
                Case My.Settings.NumberListStartTag
                    SelectionOffset = My.Settings.ListEndTag.Length
                Case My.Settings.TableListStartTag
                    SelectionOffset = My.Settings.ListEndTag.Length
                Case My.Settings.OrderedListTag
                    SelectionOffset = My.Settings.OrderedListEndTag.Length
                Case My.Settings.StrikeTextTag
                    SelectionOffset = My.Settings.StrikeTextEndTag.Length
                Case My.Settings.UnderlineTextTag
                    SelectionOffset = My.Settings.UnderlineTextEndTag.Length
                Case My.Settings.SingleLineCodeTag
                    SelectionOffset = My.Settings.SingleLineCodeEndTag.Length
                Case My.Settings.MultiLineCodeTag
                    SelectionOffset = My.Settings.MultiLineEndTag.Length
                Case My.Settings.ParagraphCodeTag
                    SelectionOffset = My.Settings.ParagraphEndTag.Length
                Case My.Settings.SeeAlsoTag
                    SelectionOffset = My.Settings.SeeAlsoEndTag.Length
            End Select
            Try
                Editor.SelectedView.Selection.SelectRange(Editor.SelectedView.Selection.FirstOffset - SelectionOffset, 0)
                If Not CurrentSelectedText = String.Empty Then
                    Editor.SelectedView.PasteFromClipboard()
                    CurrentSelectedText = String.Empty
                End If
            Catch ex As Exception

            Finally

            End Try
            Me.Refresh()

        End Sub

        ''' <summary>
        ''' Type Sub Update comment editor   intelli prompt member list closed
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Component model. cancel event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:41:10 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub UpdateCommentEditor_IntelliPromptMemberListClosed(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles UpdateCommentEditor.IntelliPromptMemberListClosed
            InsertClipboardContents(UpdateCommentEditor)

        End Sub

        ''' <summary>
        ''' Type Sub Update comment editor   key press
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Windows. forms. key press event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:41:17 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub UpdateCommentEditor_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles UpdateCommentEditor.KeyPress
            If e.KeyChar = My.Settings.EditorTriggerKey Then 'Chr(60) = <
                Try
                    CurrentSelectedText = UpdateCommentEditor.SelectedView.SelectedText
                    UpdateCommentEditor.SelectedView.CopyToClipboard()
                Catch ex As Exception

                Finally

                End Try
            End If

        End Sub

        ''' <summary>
        ''' Type Sub Update comment editor   trigger activated
        ''' <para>Class Name: UpdateComments</para>
        ''' <para>File Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter\UpdateComments.vb</para>
        ''' <para>Project Name: VBCode_Commenter</para>
        ''' <para>Solution Name: D:\Documents and Settings\pzz50h.AMER\My Documents\Visual Studio 2008\Projects\VBCode_Commenter\VBCode_Commenter.sln</para>
        ''' <para>Namespace Name: VBCodeCommenter</para>
        ''' </summary>
        ''' <param name="sender">Parameter sender As <seealso cref= "System.Object"/></param>
        ''' <param name="e">Parameter e Actipro software. syntax editor. trigger event args</param>
        ''' <remarks>
        ''' 	<para><b>History:</b></para>
        ''' <list type="table">
        ''' 	<listheader>
        ''' 		<devName>Developer\Date\Time</devName>
        ''' 		<devCompany>Developer Company</devCompany>
        ''' 		<devPhone>Developer Phone</devPhone>
        ''' 		<devEmail>Developer Email</devEmail>
        ''' 		<devMachine>Developer On</devMachine>
        ''' 		<description>Description</description>
        ''' 	</listheader>
        ''' 	<item>
        ''' 		<devName>Danny C. McNaught<para>Date: 12/14/2007</para><para>Time: 8:41:22 AM</para></devName>
        ''' 		<devCompany>EDS</devCompany>
        ''' 		<devPhone>(919) 424-9259</devPhone>
        ''' 		<devEmail><a href="mailto:danny.mcnaught@eds.com">mailto:danny.mcnaught@eds.com</a></devEmail>
        ''' 		<devMachine>W2PZZ50H01</devMachine>
        ''' 		<description>Created XML Comment.</description>
        ''' 	</item>
        ''' </list>
        ''' </remarks>
        ''' <example>
        ''' </example>
        Private Sub UpdateCommentEditor_TriggerActivated(ByVal sender As Object, ByVal e As ActiproSoftware.SyntaxEditor.TriggerEventArgs) Handles UpdateCommentEditor.TriggerActivated
            BuildTriggerList(UpdateCommentEditor)

        End Sub
#End Region
    End Class
End Namespace